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We report on our experience implementing category 
theory in Coq 8.5 Q- The repository of this development 
can be found at https://bitbucket.org/aiiiintimaiiy/ 
categories/. This implementation most notably makes 
use of features primitive projections for records and uni¬ 
verse polymorphism that are new to Coq 8.5. The latter 
provides relative smallness and largeness in the develop¬ 
ment. This will be elaborated below. The former allows 
for specification of well-behaved dualities in the category 
theoretical sense. That is, we get definitional equalities 
such afl: 

(^p°pyp ^ p = N 

{Fo F')°^ = F°^o F'°^ 

Where C is a category, F and F' are functors and N is 
a natural transformation. 

In this development the category Type_Cat plays the 
role of category of sets Set. This is the category of types 
in Coq as objects and functions among them as arrows. 
In the sequel, we will simply use Set to denote this cat¬ 
egory. 

The following is the list of the most important notions 
and features of this development. 

■ basic constructions: 

— terminal/initial object 

— products/sums 

— equalizers/coequalizers 

— pullbacks/pushouts 

— exponentials 

— -b H A H X and (— x a) H a~ 
m external constructions: 

— comma categories 

— product category 

■ for Cat: (Obj := Category, Horn := Functor) 

— cartesian closure 

— initial object 

■ for Set: (Obj := Type, Horn := fun A B A —^ B) 

— initial object 

— sums 

— equalizers 

— coequalizers^ 

^The last tested version is Coq 8.5-betal but we intend to keep 
compatibility at least up to the official release of Coq 8.5 

^This was achieved similarly to the implementation of category 
theory on top of Coq/HoTT 


— pullbacks 

— cartesian closure 

— local cartesian closure^ 

— completeness 

— co-completeness^ 

— sub-object classifier (Prop : Type)^ 

— topos^ 

■ the Yoneda lemma 

■ adjunction 

— hom-functor adjunction, unit-counit adjunction, 
universal morphism adjunction and their conver¬ 
sions 

— duality : F ^ G ^ G°^ ^ F°^ 

— uniqueness up to natural isomorphism 

■ kan extensions 

— global definition 

— local definition with both hom-functor and cones 
(along a functor) 

— uniqueness 

— preservation by adjoint functors 

— pointwise kan extensions (preserved by repre¬ 
sentable functors) 

■ (co)limits 

— as (left)right local kan extensions along the 
unique functor to the terminal category 

— (sum)product-(co)equalizer (co)limits 

— pointwise (as kan extensions) 

u T — {co)algebras (for an endofunctor T) 

Tses the axioms of propositional extensionality and 
constructive indefinite description (axiom of choice). 
In addition, we have used the axiom of functional ex¬ 
tensionality and proof-irrelevance. The axiom of proof- 
irrelevance is mostly used in proofs of equality of arrows, 
e.g., to prove two functors are equal, one just needs to 
prove the object- and arrow-maps are equal. 

Even though (co)limits are defined in general, we have 
defined most important and useful (co)limits separately: 
terminal object, products, equalizers and pullbacks. The 
duals of these notions, i.e., initial object, sums, coequal¬ 
izers and pushouts, respectively, are simpliy defined as 
their counterparts in the opposite category. Similarly, 
only the right local kan extensions (in both versions) are 
defined directly and local left can extensions are simply 
assumed as local right kan extensions with opposite func¬ 
tors. 

Although dualities behave nicely (in the aforemen- 
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tioned sense), working with dual definitions is not always 
as smooth. This is especially evident in rewriting equal¬ 
ities. In some cases one has to add the equality to the 
proof context (usually applied to the arguments that are 
difficult to match) and perform a simplification on them 
before they can be used with the rewrite tactic. In some 
rare extreme cases, simplifications with tactics like cbn 
and slmpl are not enough and one has to change the goal 
in such a way that those lemmas can be used with, e.g., 
the apply tactic, instead of rewrite. 

Universe levels, smallness and largeness 

In this implementation, we use universe levels as the 
underlying notion of smallness/largeness. In other 
words, each category has universe levels that indi¬ 
cate its relative smallness/largeness. In practice, the 
type of categories has two universe level parameters, 
Category@{i,j} : Type8{max(i + 1, j + 1)}, where i is the 
level of the type of objects and j is the level of the type of 
arrows. This relative notion of smallness/largeness works 
so well, in fact, that we can prove the following theorem 
in our implementation: 

Theorem Complete_Preorder (C : Category) (CC : Complete C) : 
forall X y : (Dbj C), Horn x y’ ~ ((Arrow C) —> Horn x y) 

where y’ is the limit of the constant functor from the 
discrete category (Arrow C) that maps every object to 
y and (Arrow C) is the type of all homomorphisms of 
category C. This though, would result in a contradiction 
as soon as we have two objects c and d in C for which 
Horn c d has more than one element. That is, we have ef¬ 
fectively shown that any complete category is a preorder 
category, i.e., between any two objects there is at most 
one arrow. This is indeed absurd as the category Set 
is complete and there are types in Coq that have more 
than one function between them! However, this theorem 
holds for small categories. That is, any small and com¬ 
plete category is a preorder categorjj^. Expectedly, the 
restrictions on the universe levels of this theorem do in¬ 
deed confirm this fact. That is, this theorem is in fact 
only applicable to categories in which the level of the type 
of objects is less than or equal to the level of the type of 
arrows. Hence, Coq will refuse to apply this theorem to 
the category Set with a universe inconsistency error as 
for it the level of the type of arrows is strictly less than 
the level of the type of objects. 

On the other hand, the universe polymorphism of 
Coq treats inductive types by considering copies of them 
at different levels. See [3]. That implies that if we 
have C : Categoryaji, j} and we additionally have that 
C ; Categoryaji’, j’}, Coq enforces i = i’ and j = j ’. In 
this setting, the category of (relatively small) categories 
Cat, which in the implementation has type 

Cataji, j, k, 1} ; Categoryaji, j} 

^This theorem and its proof are taken from 0. 


is not the category of all smaller categories. Rather it is 
the category of categories that are at level k and 1 and 
not any lower level. 

Apart from the fact that Cat defined this way is 
not the category of all relatively small categories, these 
restrictions on universe levels impose practical restric¬ 
tions as well. For instance, looking at the fact that 
Cata{i, j, k, 1} has exponentials (functor categories), we 
can see the restriction that j = k = 1. That is only those 
copies have exponentials for which this restriction holds. 
Looking back at the category of types. Set, we had the 
restriction that the level of the type of arrows is strictly 
less than that of objects. This means, there is no version 
of Cat that both has exponentials and a version of Set 
in its objects. 

This means that we can’t simply assume that Cat has 
exponentials and get the exponential transpose of the 
hom-functor to be the Yoneda embedding. 

Moreover, we can use the Yoneda lemma to show that 
in any cartesian closed category, for any objects a, b and 
c: 

[a ) a 

Yet, this theorem can’t be applied to Cat, even though 
it holds for Cat. 

On the other hand, if we show that Set has the type 
unit as its terminal object, we, strangely, get the restric¬ 
tion that the level of the type of arrows of Set is universe 
Set but, expectedly, not for objects. A similar problem 
happens with showing that the category whose object 
type and arrow type are unit is the terminal object of 
Cat. It is not clear to the authors wether this is inten- 
sional or the result of a bug. In any case, we have elected 
to go around this problem by postulating existence of a 
universe polymorphic type that has a single inhabitant: 

Parameter UNIT : Type. 

Parameter TT : UNIT. 

Axiom UNIT_SINGLETQN ; forall x y : UNIT, x = y. 
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’^However, the definition of currying defined independently of 
the notion of exponentials for functors can be used to this end 
and it is precisely how we have defined the Yoneda embedding. 
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